home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / UnfinishedEsrc.lha / PROJECTS / star.e < prev    next >
Text File  |  1999-01-06  |  790b  |  48 lines
  1. -> By Ian Chapman
  2. -> STAR TWINKLER
  3.  
  4. MODULE  'graphics/gfx',
  5.         'intuition/screens'
  6.  
  7. PROC main()
  8. DEF scr:PTR TO screen,
  9.     rast,
  10.     x,
  11.     r,
  12.     s,
  13.     v
  14.  
  15. Rnd(-0.12121)
  16.  
  17. IF (scr:=OpenS(640,256,6,$8000,'STAR TWINKLER',NIL))<>NIL
  18.     rast:=scr.rastport
  19.     FOR v:=1 TO 50
  20.         r:=Rnd(619)+21
  21.         s:=Rnd(620)+21
  22.         FOR x:=1 TO 21
  23.             Colour(1)
  24.             Plot(r-x,s,1)
  25.             Plot(r+x,s,1)
  26.             Plot(r,s-x,1)
  27.             Plot(r,s+x,1)
  28.             Delay(1)
  29.         ENDFOR
  30.  
  31.         FOR x:=21 TO 1 STEP -1
  32.             Colour(0)
  33.             Plot(r-x,s,0)
  34.             Plot(r+x,s,0)
  35.             Plot(r,s-x,0)
  36.             Plot(r,s+x,0)
  37.             Delay(1)
  38.         ENDFOR
  39.     ENDFOR
  40.     CloseS(scr)
  41.  
  42. ELSE
  43.     PrintF('Unable to open screen.\n')
  44. ENDIF
  45.  
  46. ENDPROC
  47.  
  48.